
source_online_file <- function(url = "", filename = "temp"){
  #download file
  file_path <- paste(getwd(), "/", filename, sep = "")
  download.file(url, file_path)
  return(file_path)
}



# tempdf <- read.table(file = source_online_file("https://gitee.com/ry2an/my_public_functions_r/raw/master/special_char.txt"), 
#            sep = ",", header = T)
# 
# tempdf$repl_char
